home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1985 Winter / rerun-1985-winter.d64 / key convenience (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  4KB  |  135 lines
  1. 1 rem  by  kevin j stone
  2. 2 rem      3401 agricola st.
  3. 3 rem      halifax, n.s. b3k 4j2
  4. 4 rem
  5. 10 poke 53281,1
  6. 20 print "[147]  loading machine language ... pls wait"
  7. 30 gosub 880
  8. 40 open 15,8,15
  9. 50 print "[147]      keyboard editor version 1.0 "
  10. 60 print : print"[144]"
  11. 70 print tab(3)"[213][192][192][192][192][192][192][192][160]menu selections [192][192][192][192][192][192][201]
  12. 80 [153] [163]3)"(NULL)                              (NULL)
  13. 90 print tab(3)"[221]    f1[146] - reconfigure kybd     [221]
  14. 100 [153] [163]3)"(NULL)    f3wait - test kybd            (NULL)
  15. 110 print tab(3)"[221]    f5[146] - save kybd            [221]
  16. 120 [153] [163]3)"(NULL)    f6wait - load kybd            (NULL)
  17. 130 print tab(3)"[221]    f7[146] - quit                 [221]
  18. 140 [153] [163]3)"(NULL)                              (NULL)
  19. 150 print tab(3)"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]
  20. 160 [153]:[153][163]5)"which selection ? ";
  21. 170 [141] 830
  22. 180 [139] i$[178]"input" [167] 250
  23. 190 [139] i$[178]"dim" [167] 460
  24. 200 [139] i$[178]"read" [167] 520
  25. 210 [139] i$[178]"if" [167] 650
  26. 220 [139] i$[178]"let" [167] [153] "loadexit to basic ...": [160]8:[160]15:[128]
  27. 230 [137] 170
  28. 240 [128]
  29. 250 [143] redefine new keyboard
  30. 260 [153] "loadpress 'f7' to return to main menu"
  31. 270 [153] : [153]
  32. 280 [153] "press key to change  - ";
  33. 290 [141] 830
  34. 300 [139] i$[178]"let" [167] 50
  35. 310 ok$[178]i$ : [143] old key set
  36. 320 [153] ok$
  37. 330 [153]
  38. 340 [153] "press new key wanted - ";:[141] 830
  39. 350 [139] i$[178]"let" [167] 50
  40. 360 nk$[178]i$ : [143] old key set
  41. 370 [153] nk$;
  42. 380 nk[178][198](nk$) : ok[178][198](ok$)
  43. 390 [153] "loadperforming change - one minute please"
  44. 400 i[178]60289
  45. 410 [139] [194](i)[179][177]ok [167] 430
  46. 420 [151]i[171]11018,nk:[137] 250
  47. 430 i[178]i[170]1
  48. 440 [139] i[177]60483 [167] [153] "illegal key - try again":[141] 830:[137]250
  49. 450 [137] 410
  50. 460 [143] try new keyboard
  51. 470 [153] "loadpress 'f7' to return to menu"
  52. 480 [139] [194](1)[179][177]53 [167] [151] 253,0 : [158] 49152 : [143]  get new keyboard
  53. 490 [141] 830
  54. 500 [139] i$[178]"let" [176] [194](1)[178]53 [167] [158] 49152 : [137] 50
  55. 510 [153] i$;: [137] 490
  56. 520 [153] "loadto exit without saving - press 'return'"
  57. 530 [133] "name the keyboard - ";n$
  58. 540 [139] n$[178]"" [167] 50
  59. 550 [139] [195](n$)[177]16 [167] [153] "name to long .. try again" : [137] 520
  60. 560 [159] 8,8,8,n$[170]",p,w"
  61. 570 [152]8,[199](0);:[143] lo load adr
  62. 580 [152]8,[199](192);:[143] high load adr
  63. 590 [129] x[178]49152 [164] 49467
  64. 600 [152]8,[199]([194](x));
  65. 610 [130]
  66. 620 [160] 8
  67. 630 [141] 780
  68. 640 [137]50
  69. 650 [153] "loadto exit without loading - press 'return'"
  70. 660 [133] "name of keyboard - ";n$
  71. 670 [139] n$[178]"" [167] 50
  72. 680 [139] [195](n$)[177]16 [167] [153] "name to long .. try again" : [137] 650
  73. 690 [159] 8,8,8,n$[170]",p,r"
  74. 700 [141] 780
  75. 710 [161]#8,i$ : [161]#8,i$ :[143] toss load address
  76. 720 i[178]49152
  77. 730 [161]#8,i$:[139] i$[178]"" [167] i$[178][199](0)
  78. 740 [151] i,[198](i$)
  79. 750 [139] st[179][177]0 [167] [160]8:[137]50
  80. 760 i[178]i[170]1
  81. 770 [137] 730
  82. 780 [132]15,e1,e2$,e3,e4
  83. 790 [139] e1[178]0 [167] [142]
  84. 800 [153] "error - ";e1;e2$
  85. 810 [153] "press a key - ";:[141] 830
  86. 820 [142]
  87. 830 [161] i$ : [139] i$[179][177]"" [167] 870
  88. 840 [153] "sincmdstop";:[129] d[178]1 [164] 100 :[130]
  89. 850 [153] "sinwaitcmdstop";:[129] d[178]1 [164] 100 :[130]
  90. 860 [137] 830
  91. 870 [142]
  92. 880 i[178]49152
  93. 890 [135] a:[139] a[178]256 [167] [142]
  94. 900 [151] i,a:i[178]i[170]1:[137] 890
  95. 910 [131] 165,253,201,1,208,3,76,83
  96. 920 [131] 192,169,224,133,252,169,0,133
  97. 930 [131] 251,160,0,177,251,145,251,200
  98. 940 [131] 208,249,230,252,165,252,201,0
  99. 950 [131] 208,239,169,160,133,252,169,0
  100. 960 [131] 133,251,160,0,177,251,145,251
  101. 970 [131] 200,208,249,230,252,165,252,201
  102. 980 [131] 192,208,239,169,0,133,254,169
  103. 990 [131] 1,133,253,162,0,189,119,192
  104. 1000 [131] 201,0,240,7,157,129,235,232
  105. 1010 [131] 76,69,192,165,254,201,0,240
  106. 1020 [131] 8,169,0,133,254,32,105,192
  107. 1030 [131] 96,169,1,133,254,32,112,192
  108. 1040 [131] 96,165,1,9,2,133,1,96
  109. 1050 [131] 165,1,41,253,133,1,96,20
  110. 1060 [131] 13,29,136,133,134,135,17,51
  111. 1070 [131] 87,65,52,90,83,69,1,53
  112. 1080 [131] 82,68,54,67,70,84,88,55
  113. 1090 [131] 89,71,56,66,72,85,86,57
  114. 1100 [131] 73,74,48,77,75,79,78,43
  115. 1110 [131] 80,76,45,46,58,64,44,92
  116. 1120 [131] 42,59,19,1,61,94,47,49
  117. 1130 [131] 95,4,50,32,2,81,3,255
  118. 1140 [131] 148,141,157,140,137,138,139,145
  119. 1150 [131] 35,215,193,36,218,211,197,1
  120. 1160 [131] 37,210,196,38,195,198,212,216
  121. 1170 [131] 39,217,199,40,194,200,213,214
  122. 1180 [131] 41,201,202,48,205,203,207,206
  123. 1190 [131] 219,208,204,221,62,91,186,60
  124. 1200 [131] 169,192,93,147,1,61,222,63
  125. 1210 [131] 33,95,4,34,160,2,209,131
  126. 1220 [131] 255,148,141,157,140,137,138,139
  127. 1230 [131] 145,150,179,176,151,173,174,177
  128. 1240 [131] 1,152,178,172,153,188,187,163
  129. 1250 [131] 189,154,183,165,155,191,180,184
  130. 1260 [131] 190,41,162,181,48,167,161,185
  131. 1270 [131] 170,166,175,182,220,62,91,164
  132. 1280 [131] 60,168,223,93,147,1,61,222
  133. 1290 [131] 63,129,95,4,149,160,2,171
  134. 1300 [131] 131,255,0,256
  135.